home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh94a.d64
/
turtle-demo 6
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
534b
|
19 lines
1 REM TURTLE-DEMO: 'TUNNEL'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
20 !GRAPHICS:!INIT
30 UX=140:UY=110:UA= 0:GOSUB200
40 UX=180:UY=100:UA=180:GOSUB200
50 !FINISH
60 :
200 FG=12:!PEN0:!MOVEUX,UY:!ANGLEUA:!PEN1
210 !WALKFG:!TURNL10:FG=FG-.029:IFFG>1THEN210
220 S=COS(UA/180*(null)):!PEN0:!MOVEUX-58*S,UY+27*S:AN=323+UA:!PEN1
230 FORI=1TO26:!ANGLEAN:!WALK4:AN=AN+3.3:NEXT
240 !PEN0:!MOVEUX-61*S,UY+30*S:AN=35+UA:!PEN1
250 FORI=1TO26:!ANGLEAN:!WALK3:AN=AN+2.1:NEXT
260 !PEN0:!MOVEUX-50*S,UY+35*S:AN=273+UA:!PEN1
270 FORI=1TO21:!ANGLEAN:!WALK3:AN=AN+3.2:NEXT
280 RETURN